﻿Public Class ven_config_cargas
   
    

   
    Private Sub btnir_ven_config_cargas_sv_Click(sender As Object, e As EventArgs) Handles btnir_ven_config_cargas_sv.Click
        esa = 1
        ecvd = 0
        ecvi = 0
        ecdv = 0
        Me.Hide()
        ven_config_cargas_sv.Show()
    End Sub

    Private Sub btnir_ven_config_cargas_vd_Click(sender As Object, e As EventArgs) Handles btnir_ven_config_cargas_vd.Click
        ecvd = 1
        esa = 0
        ecvi = 0
        ecdv = 0
        Me.Hide()
        ven_config_cargas_vd.Show()
    End Sub

    Private Sub btnir_ven_config_cargas_vi_Click(sender As Object, e As EventArgs) Handles btnir_ven_config_cargas_vi.Click
        ecvi = 1
        esa = 0
        ecvd = 0
        ecdv = 0
        Me.Hide()
        ven_config_cargas_vi.Show()
    End Sub

    Private Sub btnir_ven_config_cargas_dvol_Click(sender As Object, e As EventArgs) Handles btnir_ven_config_cargas_dvol.Click
        ecdv = 1
        esa = 0
        ecvd = 0
        ecvi = 0
        Me.Hide()

        ven_config_cargas_dvol.Show()

    End Sub

    Private Sub btn_calcular_reacciones_Click(sender As Object, e As EventArgs)
        r2x = (yr1 * (c1x + c2x + c3x + c4x) - (c1x * yc1 + c2x * yc2 + c3x * yc3 + c4x * yc4) + (m1z + m2z + m3z + m4z)) / (yr2 - yr1)
        r1x = -(r2x + (c1x + c2x + c3x + c4x))
        r2y = -(c1y + c2y + c3y + c4y)
        r1y = 0
        r2z = (yr1 * (c1z + c2z + c3z + c4z) - (c1z * yc1 + c2z * yc2 + c3z * yc3 + c4z * yc4) - (m1x + m2x + m3x + m4x)) / (yr2 - yr1)
        r1z = -(r2z + (c1z + c2z + c3z + c4z))
    End Sub

    
    
    
    
    Private Sub btn_helpconfigcargas_Click(sender As Object, e As EventArgs) Handles btn_helpconfigcargas.Click
        ven_helpconfigcargas.Show()
    End Sub
End Class